home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / EDITORS / FUE / emacs_rc < prev    next >
Encoding:
Text File  |  1992-10-18  |  6.0 KB  |  290 lines
  1. set $discmd FALSE
  2.  
  3. write-message "[Setting up....]"
  4.  
  5. ; If you screen "SNOWS", comment this line
  6.        set $flicker "FALSE"
  7.  
  8. ; To use an IBM-PC EGA card, uncomment the following line
  9. ;     set $sres "EGA"
  10.  
  11. ;macro 1 to toggle function key help display
  12.  
  13. add-global-mode magic
  14. add-global-mode exact
  15. add-global-mode asave
  16. add-global-mode "blue"
  17. add-global-mode "YELLOW"
  18. add-global-mode cmode
  19. ;set $sres 12
  20. set $ssave TRUE
  21. set $asave 0
  22. set $sscroll TRUE
  23.  
  24. execute-file "ue_mac_rc"
  25.  
  26. ;{{{  bind procedures to macros
  27. ;{{{  1=help
  28. 1 store-macro
  29.   execute-procedure help
  30. !endm
  31.  
  32. ;}}}
  33. ;{{{  2=clear-pick
  34. 2 store-macro
  35.   execute-procedure clear-pick
  36. !endm
  37.  
  38. ;}}}
  39. ;{{{  3=pick-line
  40. 3       store-macro
  41.   execute-procedure pick-line
  42. !endm
  43.  
  44. ;}}}
  45. ;{{{  4=move-line
  46. 4       store-macro
  47.   execute-procedure move-line
  48. !endm
  49.  
  50. ;}}}
  51. ;{{{  5=copy-pick
  52. 5       store-macro
  53.   execute-procedure copy-pick
  54. !endm
  55.  
  56. ;}}}
  57. ;{{{  6=put-buffer
  58. 6       store-macro   
  59.   execute-procedure put-buffer
  60. !endm
  61.  
  62. ;}}}
  63. ;{{{  7=copy-to-fold
  64. 7       store-macro
  65.   execute-procedure copy-to-fold
  66. !endm
  67.  
  68. ;}}}
  69. ;{{{  8=copy-line
  70. 8       store-macro
  71.   execute-procedure copy-line
  72. !endm
  73.  
  74. ;}}}
  75. ;{{{  9=delete-line
  76. 9       store-macro
  77.   execute-procedure delete-line
  78. !endm
  79.  
  80. ;}}}
  81. ;{{{  10=pick-region
  82. 10      store-macro
  83.   execute-procedure pick-region
  84. !endm
  85.  
  86. ;}}}
  87.   
  88. ;{{{  ; 21 - create-fold macro
  89. ; 21 - create-fold macro
  90. 21      store-macro
  91.     execute-procedure create-fold
  92. !endm
  93.  
  94. ;}}}
  95. ;{{{  ; 22 - enter fold/file
  96. ;22 - enter fold/file
  97. 22 store-macro
  98.   !if &seq $ltype LSOFOLD 
  99.     !force enter-fold
  100.   !else
  101.     execute-procedure t-enter-filed
  102.   !endif
  103. !endm
  104.  
  105. ;}}}
  106. ;{{{  ; 23 - exit fold/file
  107. ; 23 - exit fold/file
  108. 23 store-macro
  109.   !force exit-fold
  110.   !if ¬ $status
  111.     execute-procedure t-exit-filed
  112.   !endif
  113. !endm
  114.  
  115. ;}}}
  116. ;{{{  ; 24 - exit file
  117. ; 24 - exit fold/file
  118. 24 store-macro
  119.   execute-procedure t-exit-filed
  120. !endm
  121. ;}}}
  122.  
  123. ;{{{  ; 32 - display current line
  124. ; display the current line number in message window
  125. 32    store-macro
  126.   write-message $curline
  127. !endm
  128. ;}}}
  129. ;}}}
  130.  
  131. write-message "[Binding function keys]"
  132.  
  133. ;{{{  ;       ***** Rebind the Function key group
  134. ;       ***** Rebind the Function key group
  135. bind-to-key execute-macro-1             FN1
  136. bind-to-key execute-macro-4             FN3
  137. bind-to-key execute-macro-8             FN4
  138.  
  139. ; some twin bindings
  140.  
  141. bind-to-key set-mark     FN6
  142. bind-to-key kill-region  S-FN8
  143.  
  144. bind-to-key delete-fold    M-^K
  145. ;}}}
  146.  
  147. ;{{{  ; arc cursor keys
  148. ; arc cursor keys!
  149. bind-to-key previous-line               FNF
  150. bind-to-key next-line                   FNE
  151. bind-to-key forward-character           FND
  152. bind-to-key backward-character          FNC
  153. bind-to-key previous-page               S-FNF
  154. bind-to-key next-page                   S-FNE
  155. bind-to-key next-word                   S-FND
  156. bind-to-key previous-word               S-FNC
  157. bind-to-key beginning-of-file           FN^F
  158. bind-to-key end-of-file                 FN^E
  159. bind-to-key beginning-of-line           FN^C
  160. bind-to-key end-of-line                 FN^D
  161. bind-to-key delete-next-character       S-FN^E
  162. ;}}}
  163.  
  164.  
  165. write-message "[folding keys]"
  166.  
  167. ;!if &seq $progname "uEmacs" 
  168.   ;{{{  fold key bindings
  169.   bind-to-key enter-fold                     FNN
  170.   bind-to-key exit-fold                      FNP
  171.   bind-to-key execute-macro-22               M-FNN
  172.   bind-to-key execute-macro-23               M-FNP
  173.   bind-to-key open-fold                      FNH
  174.   bind-to-key close-fold                     FNJ
  175.   bind-to-key execute-macro-21               FNG
  176.   
  177.   bind-to-key remove-fold                    FN^P
  178.   bind-to-key quick-exit                     FN^H
  179.   
  180.   ; FNB is copy key - copy top line of fold to comment line
  181.   macro-to-key copy-to-fold                   FNB
  182.   macro-to-key copy-to-fold                   FNL  ; 5 on keypad
  183.   
  184.   ;  macro-to-key auto-fold                     ^A
  185.   
  186.   bind-to-key searchfold-forward                ^S
  187.   bind-to-key searchfold-reverse                ^R
  188.   ;}}}
  189.   ;{{{  set fold marks
  190.   write-message "[fold marks.................................]"
  191.   
  192.   ; set fold marks
  193.   
  194.   ; file extensions
  195.   
  196.   set-fold-marks "c"   "/*{{{  "   "/*}}}*/"   "*/"
  197.   set-fold-marks "h"   "/*{{{  "   "/*}}}*/"   "*/"
  198.   
  199.   set-fold-marks "occ" "--{{{  "   "--}}}"     ""
  200.   set-fold-marks "inc" "--{{{  "   "--}}}"     ""
  201.   set-fold-marks "pgm" "--{{{  "   "--}}}"     ""
  202.   set-fold-marks "cfs" "/*{{{  "   "/*}}}*/"   "*/"
  203.   
  204.   set-fold-marks "mak" "#{{{  "    "#}}}"      ""
  205.   set-fold-marks "tt"  "/*{{{  "   "/*}}}*/"   "*/"
  206.   
  207.   set-fold-marks "rc"  ";{{{  "    ";}}}"      ""
  208.   set-fold-marks "hdl"  "#{{{  "    "#}}}"      ""
  209.   
  210.   
  211.   ; arc file types...
  212.   
  213.   set-fold-marks "Text"     "{{{  "    "}}}"      ""
  214.   set-fold-marks "Obey"     "| {{{  "  "| }}}"    ""
  215.   set-fold-marks "Command"  "| {{{  "  "| }}}"    ""
  216.   set-fold-marks "Data"     "/*{{{  "  "/*}}}*/"    "*/"
  217.   set-fold-marks "tex"      "%% start-fold:  " "%% end-fold" ""
  218.   
  219.   set-fold-marks "*" "{{{" "}}}" ""
  220.   
  221.   ;}}}
  222. ;!else
  223.   ;{{{  normal bindings
  224.   ;bind-to-key     beginning-of-line       FN<
  225.   ;bind-to-key     end-of-line             FN>
  226.   ;}}}
  227. ;!endif
  228.  
  229. ;{{{  set readhook
  230. 20        store-macro
  231. ; arc version - uses new variable $cftype
  232.  
  233.         write-message "[read-hook]"
  234.  
  235.         ;{{{  c or h ?
  236.         !if &or &seq $cftype "c" &seq $cftype "h"
  237.                 add-mode cmode
  238.         !endif
  239.         ;}}}
  240.  
  241.         ;{{{  mss ?
  242.         !if &seq $cftype "mss"
  243.                 add-mode "wrap"
  244.         !endif
  245.         ;}}}
  246.  
  247.         ;{{{  occ or inc ?
  248.         !if &or &seq $cftype "occ" &seq $cftype "inc"
  249.                 add-mode "cmode"
  250.         !endif
  251.         ;}}}
  252.         
  253.         ;{{{  tex
  254.         !if &seq $cftype "tex"
  255.                 add-mode "cmode"
  256.                 add-mode "wrap"
  257.         !endif
  258.         ;}}}
  259.         
  260.     
  261.  
  262. ;        !force add-mode magic
  263.  
  264. ;        !if %t-lstflg
  265. ;          !force execute-procedure t-listbuf
  266. ;        !endif
  267.  
  268. !endm
  269.  
  270. set $readhook execute-macro-20
  271. ;}}}
  272.   
  273. ;bind-to-key     next-buffer       M-FNN
  274.  
  275.  
  276. !force add-mode exact
  277. !force add-mode magic
  278.  
  279. !force add-global-mode exact
  280. !force add-global-mode magic
  281.  
  282. set $softtab 0
  283. set $hardtab 3
  284.  
  285. set $discmd TRUE        
  286.  
  287. write-message "[Setup done]"
  288.  
  289.  
  290.